;
;  IBMBP -- ibm bp module
;		(c) Copyright 1990 Chris Butler
;
;		uses clipping buffers 1 2 3 4
;

  set allpsdi off
  goto top
all:
  set allpsdi on
top:

video g 	; 640X350 16/64

pnewbuf 1
psetbuf 1
color 9
clearscr
psetbuf
pfade 22 1

cload bptxt1.clp 1 1 0
cfade 1 144,300 1 100
waitkey 100

set i 1
cload test3.clp 1 1 0
putup 208,150 1
waitkey 50

cload test4 1 1 0
dload bpdff.dff 1
set xor on
putdff 1 5 1 32 208,150
set xor off
waitkey 10
putup 208,150 1
dfree 1

waitkey 100
cload bptxt1a 1 1 0
cfade 9 61,10 1
waitkey 200
note  100 10 10
waitkey 500


clearscr
chgcolor 0 7
chgcolor 15 57
chgcolor 13 0

; make tiled backdrop

setpage 0 1
color 15
clearscr
cload ibmbpa.clp 3 0 0
tile 3 0
revpage
color 15
clearscr
tile 3 0
revpage
waitkey 100
tran on 15
cload bptxt2.clp  4 1 1
putup 24,290 4
revpage
putup 24,290 4
waitkey 100

; PRINTER

tran on 15
cload prntrtxt.clp 1 1 1
putup 40,50 1
revpage
putup 40,50 1

cload printera.clp 1 1 1
float 376 350 376 106 10 1 1 ; xyxy step delay buf
cload printerc.clp 2 1 0
setpage
cfade 20 376,106 2	; bring up filled printer
note 100 10 10
WAITKEY 300
setpage 0 1
float 376 106 376 -252 10 1 1 ; xyxy step delay buf
tile 3 0		; clear to titled tiled screen
putup 24,290 4
revpage
tile 3 0
putup 24,290 4
revpage

; PS/2 

tran on 15
cload ps2txt.clp 1 1 1
putup 32,22 1
revpage
putup 32,22 1
waitkey 100

cload ps2a.clp 1 1 1
float 384 350 384 88 10 1 1 ; xyxy step delay buf
cload ps2b.clp 2 1 0
setpage
putup 384,88 1
cfade 20 384,88 2	; bring up filled ps2
note 100 10 10 
WAITKEY 300
setpage 0 1
float 384 88 384 -252 10 1 1 ; xyxy step delay buf
tile 3 0		; clear to titled tiled screen
putup 24,290 4
revpage
tile 3 0
putup 24,290 4
revpage

; SERVMAN	

tran on 15
cload servtxt.clp 1 1 1
putup 40,34 1
revpage
putup 40,34 1
chgcolor 2 63 ; white shirt

cload servmanb.clp 1 1 1
float 464 350 464 96 10 1 1 ; xyxy step delay buf
tran on 15 ; 
cload servmanc.clp 2 1 0
setpage
cfade 20 464,96 2	; bring up filled servman
note 100 10 10
waitkey 300
setpage 0 1
float 464 96 464 -252 10 1 1 ; xyxy step delay buf
tile 3 0		; clear to titled tiled screen
revpage
setpage 1 1 

; CLOSE 
cfree 1 2 3 4

tran on 15
cload bptxt3.clp 1 1 1
cload printerc.clp 2 1 0
cload ps2b.clp 3 1 0
cload servmanc.clp 4 1 0
cload bptxt4.clp 5 1 1

putup 48,290 1 
waitkey 100
color 15
rect 0 94 639 270
waitkey 50
cfade 20 8 100 2 100
waitkey 30
cfade 20 264 90 3 100
waitkey 30
cfade 20 496 84 4 100
waitkey 100
putup 80,20 5
waitkey 150
noise  500 10 70
waitkey 400
cfree 1 2 3 4 5
pfree 1

video m
if @allpsdi==on linkit
  link master.txt entry_3
linkit:
  link support.txt all
;  (SUBR IBMBP)